#open FILEHANDLE, EXPR
#open FILEHANDLE
#sysopen FILEHANDLE, FILENAME, MODE, PERMS
#sysopen FILEHANDLE, FILENAME, MODE


#!/usr/bin/perl

open(DATA, "<file.txt") or die "Couldn't open file file.txt, $!";

while(<DATA>)
{
   print "$_";
}




sysopen(DATA, "file.txt", O_RDWR);


close(DATA) || die "Couldn't close file properly";